00100		DIMENSION C(20)
00200		TYPE 5
00300	5	FORMAT(' WRITE BALANCE'/)
00400		ACCEPT 7,B
00500	7	FORMAT(8F)
00600	10	TYPE 15
00700	15	FORMAT(' WRITE CHECKS'/)
00800		ACCEPT 20,C
00900	20	FORMAT(20F)
01000		X=0
01100		Z=0
01200		DO 40 K=1,20
01300		IF(C(K).LT.0)GO TO 30  
01400		X=X+C(K)
01500		GO TO 40
01600	30	Z=Z+C(K)
01700	40	CONTINUE
01800		B=(B+Z+X)   
01900		TYPE 50,Z,X,B
02000	50	FORMAT(F9.2)
02100		GO TO 10
02200		END